﻿Public Class Course
    Dim id As String
    Dim name As String
    Dim assignmentlist As New List(Of Assignment)


    Public Sub New(ByVal id As String, ByVal name As String)
        Me.id = id
        Me.name = name

    End Sub

    Public Function getid() As String
        Return Me.id
    End Function

    Public Function getname() As String
        Return Me.name
    End Function

    Public Sub setassignmentlist(ByVal alist As List(Of Assignment))
        Me.assignmentlist = alist
    End Sub

    Public Sub addassignments(ByVal name As String, ByVal assignid As String)
        Dim assign As New Assignment(name, assignid, 0)
        assignmentlist.Add(assign)
    End Sub


    Public Function getassignmentlist() As List(Of Assignment)
        Return Me.assignmentlist
    End Function
End Class
